Secrets of Stargate/STARGATE.iso/mac/STARGATE (5MB Macintosh)/STARGATE (5MB Macintosh).DXR/00139.ls

Text File | 1994-10-19 | 1.5 KB | 65 lines

on idle
end

on exitFrame
  go(the frame)
end

on enterFrame
  global gOnPC, mouseUp, gSysVol, gMovieStartMod
  if the pauseState = 0 then
    spinCursor()
    set the visible of sprite 35 to 0
    pause()
    puppetPalette(value(the number of cast "walk palette"))
    updatePalette()
    set the visible of sprite 35 to 1
    set the puppet of sprite 35 to 1
    set theVolume to 150
    set theVolume to integer(gSysVol * (float(theVolume) / float(255)))
    set theVolume to integer(theVolume * 1.5)
    if theVolume > 255 then
      set theVolume to 255
    end if
    set the volume of sprite 35 to 0
    set the puppet of sprite 35 to 1
    continue()
    updateStage()
    stopCursor()
    set the volume of sprite 35 to gSysVol
    preRollMov(35)
    set earlyExit to 0
    set cont to 1
    repeat while cont
      set the movieRate of sprite 35 to 1
      updateStage()
      if the movieRate of sprite 35 > 0 then
        exit repeat
      end if
    end repeat
    repeat while the movieRate of sprite 35 > 0
      if the mouseDown = 1 then
        set the movieRate of sprite 35 to 0
        set earlyExit to 1
        exit repeat
      end if
      updateStage()
    end repeat
    spinCursor()
    set the movieRate of sprite 35 to 0
    set the visible of sprite 35 to 0
    set the puppet of sprite 35 to 0
    puppetPalette(0)
    updateStage()
    wait(10)
    spinCursor()
    dissolveEffect()
    go("Start2")
    spinCursor()
    unLoad(1, 9)
    palaceCursors(1)
    startMouse()
    resetCursor()
  end if
end